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0 WITH SUCCOMMON.OBJ, FORM TEST MODULE SATSSS42 TO TEST SUCCESSFUL 
OPERATION OF THE SFORCEX SYSTEM SERVICE. THE SERVICE IS INVOKED 
UNDER VARIOUS INPUT CONDITIONS WITH VARYING INPUT PARAMETERS. ONLY 
SUCCESSFUL STATUS CODES ARE EXPECTED IN THIS TEST MODULE. CORRECT 
OPERATION OF THE SERVICE FOR EACH OF ITS ISSUANCES 'S VERIFIED BY 


CHECKING FOR AN SS$_NORMAL STATUS CODE, EXPECTED RE“ »RN ARGUMENTS 
AND EXPECTED FUNCTIONALITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: MAR, 1978 
MODIFIED BY: 
v03-001 LDJ0001 Larry D. Jones, 23-Jun-1983 


Removed the quota List to force the use of the 
default sysboot quota values. 
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SATSSS42 SATS SYSTEM SERVICE TESTS SFORCEX (SUCC 16-SEP-1984 00:53:49 VAX/VMS Macro V04-0 Page 
y042000 mitts y 80: 1:22 OE Te ey. RETSAY SESS >< MAR: 1 . 

1 TITLE SATSSS42 SATS SYSTEM SERVICE TESTS S$FORCEX (SUCC S.C.) 

6 IDENT baat t 

4; 

0 5 PeeeereeererrererererereretreeeKeeeKenene (ARBRARAAAAALASALALSARAAASALASE SELES SE 
;* 

0 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY : 
00 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
4 :* ALL RIGHTS RESERVED. ~ 

e ® 
$609 1 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
44 § 3* ONLY IN ACCORDANCE WITH — TERMS U ICENSE AND WITH THE * 
3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY O * 
0000 4 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 5 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
444 § :* TRANSFERRED. * 
b4 * 
0000 8 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 9 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 y :* CORPORATION. * 
$ ® 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
+464 ? SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
4 ® 
0000 5 ;:e + 
444 $ FERRARA ARKH RER EAE AA AERA AREER ERARAARERTARAAAAAARARERAAATeKAKeeeeKe eee 
0000 8° 
0000 9 s++ 
0000 9 FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
8008 ¢ ABSTRACT: 
O008 ; THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
0000 6 
0000 7 
0000 8 
0000 9 
0000 0 
8 4 1 
Q 80 : 
4 
0 ; 
0 § 
0000 «8 
0000 $6 
0000 1 
0000 ; 
0000 


PUT BS BB BS BB EB AANA ANI nnonoMPonononoenoens 3 oe ae 


MACROS: 


EQUATED SYMBOLS: 


e 4 
SATSSS$42 SATS SYSTEM SERVICE TESTS S$FORCEX (SUCC Ig-SEB-1984 0:53:49 VAX/VMS Macro vO4-09 Page 
v04 DECLARATIONS =SEP=-1984 04:31:22 (CUETPSY.SRCISATSSS42.MAR; 1 
5 .SBTTL DECLARATIONS 
§ 3 INCLUDE FILES: 
F SPRVDEF ; PRIVILEGE BIT DEFINITIONS 
SPHDDEF t PROCESS HEADER OFFSETS 
SPOLDEF t PROCESS QUOTA CODES 
SPCBDEF : PCB LABELS 
SLOGDEF t LOGICAL NAME TABLE TYPE SYMBOLS 
0 SDIBDEF : DEVICE INFO BLOCK OFFSETS 
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SATSSS42 SATS SYSTEM SERVICE TESTS S$FORCEX (SUCC 1 = SEP-1984 00:53 3:49 VAX/VMS Macro v04<09 Page ; 
V04= DECLARATIONS =SEP-1984 04:31:22 CUETPSY.SR REISATSSS4 «MAR; 1 (1) | 
0000 if -PSECT RODATA,RD,NOWRT ,NOEXE,LONG 
g TEST_MOD_NAME:: STRING C.<SATSSS40> ; TEST MO ULE NAM 
77 TEST-MOD-NAME_D: STRING I,<SATSSS42> TEST MODUL NAME DESCRIPTOR 
£8 MSGI-INP-CTL:~ STRING I,< SSFEX!42W: CONDITIONS :> 
FAO CTL éTRING FOR MSG1 IN SUCCOMMON.MAR 
9 O MSG3_ERR_CTL:: STRING I,< *SSFEX!42W: las. 
1 1 FAO CTL STRING FOR MSG3 IN SUCCOMMON.MAR 
FFFFFFFFE DC3CBAOO 0051 : ONE_MIN: . LONG 1010001900860, s-1 ; ONE MINUTE (WAKE-UP DELTA) 
59 CREATED_PRN STRING 1,<SATSSS4 Phacess MBX NAME FOR CREATED PROCESS 
9 D 4 IMAGNAM? STRING 1.<S CesT STSRES. REA réur’ .EXE> ; IMAGE NAME FOR CREATED PROC 
C 5 LOGNAM_PID STRING 1.<SYSTSTSPID> ; LOG NAME OF CREATING PI 
90000006 ) 5 § EQUIV_PID -LONG 4 J EQUIV NAME ST 
4* yOA sADDRESS CREATING_PID : ... OF CREATIN 
Bons g : ;QUOTALIST: $QUOTA CPUL. 0 : INFINITE CPU 
OA6 ; QUOTA BYTLM,512 : BYTE LIMIT FOR BUFFERED 1/0 
OUAG 90 ; $QUOTA FILLM.2 : OPEN FILE COUNT LIMIT 
OA 91 : $QUOTA PGFLQUOTA,10 =: PAGING FILE Quo 
O06 3 : $QUOTA PRCLM, + SUBPROCESS QUOT 
0A Oso: $QUOTA TQELM. : TIMER QUEUE ENTRY QUOTA 
00A6 =o: SQUOTA LISTEND > DEFINES END OF T 
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CHAN: 
CHANINFO: 
IT 
FF 
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~SBTTL CONDITION TABLES 
weeee CONDITION TABLES FOR FORCEX SYSTEM SERVICE *eeee 
1 moran’ <PID ADDRESS>, - 
T SPECIFI 
SPEC . ON N-ZER RO>, - 
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SATSSS42,RD,WRT EXE 


7399 AX/VMS 
1:2 UETPSY.S 


Witwee NAME ADDRESS>,- 


3, -NOTARG, <CREATED PROCESS TYPE>,- 
<DETACHED, DIFFERENT poROUR>. ~ 
<DETACHED, SAME GR SAME MEMBER> 
<DETACHED, SAME GROUP. DIFFERENT MEMBER>, « 
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TESTS SFORCEX (SUCC 16-SEP-1984 00:53:49 VAX/VMS Macro V04-0 Pa 
873Ep =| be ga: 1:22 LOETPSY. SREDSAYSSSa5. MAR; 1 v7 &) 


~SBTTL TM_SETUP, TM CLEANUP 
FUNCTIONAL DESCRIPTION: 


m Setup AND TM_CLEANUP ARE CALLED TO PERFORM 
REQUIRED HOUSEKEERI 5 at THE BEGINNING AND END, RESPECTIVELY, OF 


TEST MODULE EXECUTI 
CALLING SEQUENCE: 
BSBW TM_SETUP ®SBW TM_CLEANUP 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
; IMPLICIT OUTPUTS: 


TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
ALL PRIVILEGES ACQUIRED. 


COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED 
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COOCCCOCOOSOOSOOSCOOSOOOOOOSOSO OOOO OOSOSOOSOOOOOSOOOOOOOOOOOSSo 6 UM 
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TM_SETUP: : 
52 D4 1 CLRL Re ; INIT ALIZE 
D4 é CLRL ORR : 2. CONDITION 
54 OO 4 CLRL = RG + tee. TABLE 
35 D4 : 4 CLRL RS ge en INDEX 
: ps 5 CLRL OR Beata REGISTERS 
FFF3" 30 A 6 SBW 460s MOD_M INT : PRINT TEST MODULE BEGIN MSG 
00000900" EF 000 00 EF DE 0 MOVAL TEST aco oy CC,TMD_ADDR : ASSUME END MSG WILL SHOW SUCCESS 
0 0 9000 0:8 F 1 8 INSV  #SUCCESS7#0,#5,MOD_MSG_ CODE : ADJUST STATUS CODE FOR SUCCESS 
g 9 MODE KR NL : KERNEL MODE TO ACCESS PHD 
59 00000000'9F D0 004 0 MOVL 13.78 ogkh R9 GET PROCESS HEADER ADDRESS 
00000000°EF 69 DE O04F 1 MOVAL PHS PRIVASK(RO) .P PRI YMASK ; GET PRIV MASK ADDRESS 
36 ; MODE  FROM,S$ ; BACK TO USER 
5 PRIV ADD, ALL * i ALL PRIVILEGES 


4 
SATSSS42 SATS SYSTEM SERVICE TESTS SFORCEX (Succ 1 sep-1 4 00:53:49 VAX/VMS Macro V04-0 Page 
9042000 TM_SETUP, TM_CLEANUP g-3 1382 89: 37 ‘$3 LOETPSY SRE TSA SSSeo MAR: 1 . 
77 4 SSETPRN_S TEST_MOD_NAME_D : SET PROCESS NAME 
84 5 38 CHEC ; CHECK STATUS CODE RETURNED FROM SETPRN 
8¢ ‘ WAKE § PLDADR=CREATING_PID : GET MY PID 
C SS_CHECK NORM ; CHECK FOR NORMAL RETURN 
EF 8 SHTBER_S ; UNDO ABOVE WwW 
Pe S$_CHECK NORM : CHECK FOR NORMAL RETURN 
124 10 SCRELOG_S TBLTLG=#LOGSC _SYSTEM, = ; GET MY PID INTO CoG NAME TABLE 
104 21 LOGNAM=LOGNAM-PID, =; ... FOR USE BY CREATED PROCESS 
124 \¢ Ea NAM=EQUIV_PID 
2— 50 €8 0138 21 BLBS _—RO, 10$ : IF SUCCESSFUL, CONTINUE 
13 14 $S_CHECK QORMAL > USE SS_CHECK fO TERMINATE MODULE 
16¢ 13 10S: 
d16¢ 2 : THE FOLLOWING CODE ESTABLISHES UIC'S IN THE CONDITION 3 TABLE 
016C 19 MODE 0,20$,KRNL ; KERNEL MODE TO ACCESS pce 
59 Q0000000'9F DO O018F 0 MOVL  a#SCH$GL_CURPCB,R9 + GET CURRENT PCB ADDRESS 
59 O00BC C9 D0 0196 1 MOVL  PCBS$L UIECRI) RO ; PICK UP UIC FROM PCB 
o138 ¢ MODE FROM, 20$ 3 «.. AND GET BACK TO USER MODE 
o19¢ 4 + R9 NOW CONTAINS "MY" UIC 
SA 01. s«OA—s«C19 6 MOVZBL 4 R10 COND3 TABLE INDEX NUMBER INTO A REG 
59 00010000 8F C1 O19F 227 #440000, R9,COND3 _ECR10]° : 8 DIFF GROUP UIC INTO 2ND TABLE ELT 
00000249'EF4A 01A6 
SA D6 OIAC 228 INCL R10 : POINT TO 3RD COND3 TABLE ELEMENT 
00000249'EF4A 59 DO O1AE $3 MOVL Rg COND3_ECR10] PUT MY UIC INTO TABLE 
A D6 0186 0 R10 POINT TO 47H COND3 TABLE ELEMENT 
00000249'EF4A 59 O01 C1 0188 231 ADDL3 ,COND3_ECR10] PUT DIFF MEMBER UIC INTO THE TABLE 
01C1 32 SCREMBX_S 5" chas =MBXCAAN, aioe ATED PRN, = ; GET MAILBOX FOR PROCESS 
01¢1 so=#i20, PROMSK=40, BUF Q00=#240 
0166 4 S$_CHECK NORA : CH ECK MOAR COMPLETION 
0214 5 SGETCHN_S CHAN MBX CHA 3; GET CHAN INFO (UNIT NUMBER) 
0214 4 RIBUF MEX CHANINEO 
0 H 37 S$_CHECK NORMAL CHECK NORMAL COMPLETION 
00000088'EF O0000020'EF 3c 025C 238 MOUZWL MBXCHANINFO+8+D1B$W AUNIT ,MBXUNTT SAVE MAILBOX UNIT NUMBER 
05 0267 239 R + RETURN fo MAIN ROUTINE 
0268 240 TM_CLEANUP: 
0268 241 SDELMB X_$ _MBXCHAN ; DELETE TERMINATION MAILBOX 
0276 4g SPELL BON “§ TBLFLGS#LOGSC ~SYSTEM. = ; DELETE LOG NAME ACQUIRED ABOVE 
376 4 LOGNAM=LOGNAM~PID 
FD76" 30 87 44 BSBW  MOD_MSG_PRINT ; PRINT TEST MODULE ENO MSG 
05 028A 245 RSB + RETURN TO MAIN ROUTINE 
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VICE TESTS SFORCEX (SUCC 16-SEP-1984 00:53:49 YAX/VMS Mac p 
UT INES Be:3t:8 es 


ro voes03 
= SETUP AND CLEANU 5-SEP-1984 UETPSY.SRCJSATSSS42.MAR; 1 
; ~SBTTL CONDITION SUBROUTINES = SETUP AND CLEANUP 
; FUNCTIONAL DESCRIPTION: 


CONDX AND CONDX CLEANUP ARE SUBROUTINES WHICH ARE EXECUTED 

BEFORE AND AFTER THE VERIFY SOBROUTINE, RESPECTIVELY, WHENEVER A NEW 
ONDITION X VALUE IS SELECTED (SEE FUNCTIONAL DESCRIPTION OF SUCCOMMON 
ROUTINE IN SUCCOMMON.MAR). ANY SETUP FUNCTION PARTICULAR TO THE 

ONDITION X TABLE IS INCLUDED IN THE CONDX SUBROUTINE AND CLEANED 

P, IF NECESSARY, IN THE CONDX CLEANUP SUBROUTINE. THIS INCLUDES 
ESPECIALLY, CODE TO DETECT CONFLICTS AMONG CURRENT ENTRIES IN TWO 

E CONDITION TABLES. IF A CONFLICT IS DETECTED, A NON-ZERO 

VALUE IS STORED INTO CONFLICT, WHICH CAUSES THE CALLING ROUTINE 
(SUCCOMMON) TO SKIP THE CURRENT ENTRY IN THE CONDITION X TABLE. 


; CALLING SEQUENCE: 


PAGO OOCOCOCOMMIUINNININIUVIVIUIE SS Mm 
OOONOU EWR OO OONOUS WH" OV0O~n OF 
Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge S- Se Ge Ge Ge Ge Ge & 
a 
OMCoOwn > 
=» 
=z 
Oo 
 ] 


BSBW CONDX BSBW CONDX_CLEANUP 
WHERE X = 1,2,3,4,5 
: INPUT PARAMETERS: 
CONFLICT = 0 

4 > IMPLICIT INPUTS: 

73: R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
2 : FOR COND TABLES 1,2,3,4,5, RESPECTIVELY. 
, : OUTPUT PARAMETERS: 
a : CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED. 
i : IMPLICIT OUTPUTS: 

é : R2,3,4,5,6 PRESERVED 
bs : COMPLETION CODES: 
86 : NONE 
87 ; 
88 + SIDE EFFECTS: 
90 : NONE 
a 
38 . 
94 
95 
38 COND1:: 
9 RSB ; RETURN TO MAIN ROUTINE 
38 COND1_CLEANUP: : 
99 sal ; RETURN TO MAIN ROUTINE 

1 “" CMPL = #ZEROPID,COND1_ECR2] =; PID SPECIFIED AS 0 2? 

é BNEGU CON : NO == NO CONFLICT 

TSTL COND2_ECR3I : YES == IS THERE A PROCESS NAME ?? 
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SERVICE T EP=1984 00:53:49 VAX/VMS Macro v04-0 Page 9 SAT 
UBROUTINES = SETUP AND CLEANU mise tt 1 90:37:33 UETPSY.SRCIJSATSSS42.MAR; 1 . (1) v04: 
4 BNEQU COND2X 3 YES == NO CONFLICT 
5 MOVB ONES, CONFLICT 3 NO == INDICATE CONFLICT BECAUSE THIS TYPE 
$ comex j ee. OF FORCEX WOULD EXIT CREATING IMAGE 
: R ; RETURN TO MAIN ROUTINE ! 
COND2_ CLEANUP 
19 coos ; RETURN TO MAIN ROUTINE 
13 CMPL #CREATED_PID,COND1_ECR2] ; NON-ZERO PID SPECIFIED ? 
1 BEQLU C 3: YES <= 
14 STL COND2 ECR3) : IS PROCESS NAME SPECIFIED ? 
F BEQL COND 3% ; NO == NO CONFLICT 
7 3 NOTE == AT THIS POINT, PROCESS WILL BE REFERENCED BY PROCESS NAME. 
i CMPL R4,#1 3 DOES CONDITION 3 SPECIFY DIFFERENT GROUP ? 
0 BNEQ COND 3x 3 NO == NO CONFLICT 
1 mente MOVB ONES, CONFLICT ; YES == PROCESS NAME FOR DIFF GROUP IS CONF 
i ; RETURN TO MAIN ROUTINE 
4 COND3_CLEANUP 
5 ; RETURN TO MAIN ROUTINE 
8 COND4:: 
; RETURN TO MAIN ROUTINE 
8 COND4_CLEANUP: : 
9 RSB ; RETURN TO MAIN ROUTINE 
0 CONDS:: 
1 RSB ; RETURN TO MAIN ROUTINE 
3 COND5_CLEANUP: : 
3 RSB ; RETURN TO MAIN ROUTINE 


N 
SATSSS42 SATS SYSTEM SERVICE TESTS S$FORCEX (SUCC 16-SEP-1984 00:53:49 VAX/VMS Macro V04-0 Page 10 | 
y042000 FORM_CONDS g Hiatt 1 90 3 22 LOE TPey eRe agAY esses. MARI os 9) 
DE 5 .SBTTL FORM_CONDS 
DE § i+ 
DE ; FUNCTIONAL DESCRIPTION: 
DE § ; FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT 
DE 40 ; THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES. 
DE 4g + CALLING SEQUENCE: 
DE 44 : BSBW FORM_CONDS | 
DE 46 : INPUT PARAMETERS: | 
DE 47; 
DE 48 : NONE 
DE 349: 
DE 20 : IMPLICIT INPUTS: 
DE 58 ; R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
DE 353; FOR COND TABLES 1,2,3,4,5, RESPECTIVELY. 
O2dE 354: X= 1,2,3,4,5 : 
O20E 355: CONOK/ T= TITLE TEXT FOR CONDX TABL 
O2DE 356: CONDX"TAB = ELEMENT TEXT FOR CONDX TABLE 
O2DE 357: CONDX"C = CONTEXT OF THE CONDX TABLE 
0 DE 58 ; CONDX"E = DATA ELEMENTS OF THE CONDX TABLE 
0 DE 360 : OUTPUT PARAMETERS: 
DE 361: 
O2DE 6¢ 3 NONE 
O2DE 63 ; 
O2DE 364 : IMPLICIT OUTPUTS: 
6 DE $2 : NONE 
O2DE 89 : 
O2DE 368 : COMPLETION CNDES: 
SSE «890 NONE 
O2DE 371: 
DE es : SIDE EFFECTS: 
DE 373: 
DE 374: NONE 
O2D0E 75 3 
2dE 6 pct 
Bn 
DE 37 e 
DE 0 FORM_CONDS:: 
DE 1 $FAO_S MSG1_INP_CTL,FAO_LEN,FAO_DESC,TESTNUM 
FD ; | FORMAT CONDITIONS HEADER MSG 
FDOO' 30 FD BSBW  OUTPUT_MSG + ... AND PRINT IT 
14 1 4 CMPB =, #COND1-C , #NULL : 18° CONDITION 1 NULL ? 
12 5 BNEQU 1 : NO == CONTINU 
O0BF 31 : Mee BRW FORM_CONDSX : YES <= SUBROUTINE IS FINISHED 
00000000’ EF 9000120°EF DE | H 8 "  MOVAL ~=—s«COND1_T SG A : SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 
00000000 ' EF 098 0012DEF4 p 1 MOVL  COND1~TABLR2J,MSG_B : SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO 
00000000'EF 0 1F ? MOVE #CONDT_C.MSG_CTXT : SAVE CONDITION 1 CONTEXT FOR FAO 
26 «(39 MOV_VAL COND1_C,CONDT_EFR2],MSG_DATA1 ; GIVE COND 1 DATA VALUE TO FAO 
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V04=" FORM_CONDS =SEP-1984 1:22 (CUETPSY.SRCJSATSSS42.MAR; 1 (1) V 
FCD?" 30 : 93 BSBwW WRITE $62 ; FORMAT AND WR TE CONDITION 1 MSG | 
14 1 g CMPB Nb2 C,#NULL 3; 1S CONDiTION 73 
i C 394 BNEQU + NO == CONTINU 
0096 F 99 a FORM_CONDSX + YES == SUBROUTINE I$ FINISHED 
00000000 ' EF 90000177" EF DE 1 38 MOVAL COND Stes : SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO 
00000000'°EF 00000180" EF43 p ¢ 98 MOVL COND “Tis R3] MSG_B ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO 
Q0000000'EF 00 90 O34 9 MOVB ND2_C,MSG_CTX SAVE CONDITION 2 CONTEXT FOR FAO 
4F 400 MOV_VAL COND x: é ND2. ECR3],MSG _batal : Give COND 2 DATA VALUE TO FAO 
FCAE' 30 O34F 401 BSBQ  WRITE-MSG ; FORMAT AND WR TE CONDITION MSG 
1% #00 (91 52. é CMPB = #COND3_C,#NULL ; 1S CONDITION 
0 \ ; 40 BNEQU 30S ; NO_= 
006D 37 404 a BRW FORM_CONDSX > YES <= SUBROUTINE IS FINISHED 
Q0000000'EF  OO0001IBS'EF DE O35A 406 MOVAL COND ss ; SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO 
OO'EF OOO001CB'EF4S DO 0 $5 407 MOVL COND tis RZ) MSG_B : SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO 
00000000'EF 00 90 1 408 MOVB CONS ¢ $G_CTX CONDITION 3 CONTEXT FOR FAO 
£8 409 MOV_VAL COND3.C C.CONDS ECR, MSG_ BATAL GIVE COND 3 DATA VALU TO FAO 
FBS" 30 0378 410 Q WRIT ; MAT AND WRITE CONDITION 3 MSG 
14 91 0378 411 CMPB WCONDE” C, #NULL t IS CONDITION 4 NULL ? 
13 43 alg BEQLU FORM_CONDSX == SUBROUTINE IS FINISHED 
00000000' EF souse DE 380041 MOVAL COND i A SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO 
00000000' EF 9000002 "EFS =D 388 414 OVL  COND4 The R5],MSG_B ; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO 
14 90 0397 415 MOVB #CON 6_¢Tx SAVE CONDITION 4 CONTEXT FOR FAO 
O39E 416 MOV_VAL COND4_C 0 NGS _ECRSJ,MSG_ BATA: GIVE COND 4 DATA VALUE TO FAO 
FCSF* 30 0 9— 417 BSBQ GRITEDN MSG ; FOR RMAT AND WRITE CONDITION & MSG 
16 #16 91 O3A1 418 CMPB ss #@CONDS_C,, #NULL ; IS CONDITION 5 NULL? 
rd 13 0344 41 BEQLU FORM_CON BSx ; YES =~ SUBROUTINE IS FINISHED 
QOO00000"EF  O000025A"EF DE 03A4 420 MOVAL COND NDS T : SAVE ADDRESS OF CONDITION 5 TITLE FOR FAG 
Q0000000°EF  O000025A"EFS6 D0 03B1 421 MOVL  CONDS cTABEREI MSG_B ; SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO 
00000000°EF 14 90 O3B8D 4 : MOVB  #CONDS_C AVE CONDITION 5 CONTEXT FOR FAO 
Bate 4 MOV_VAL CONDS- e cOnDS. ctr), MSG_ bata: GIVE COND 5 DATA VALUE TO FAO 
FC39" 30 O3¢4 4 é ad cone se WRITE-MSG2 ; FORMAT AND ORITE CONDITION 5 MSG 
05 O3€7 426 ~ RSB ; RETURN TO CALLER 
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SATSS$42 SATS SYSTEM SERVICE TESTS S$FORCEX (SUCC 16-SEP-1984 00:53:49 VAX/VMS Macro V04-0 Page 13. 
9042000 VERIFY eet 80: 1:22 CUETPSY.SRCISAT 1SSse3.mAR:1 . ty. 
fB  OdBS | 
CB 4 : 
C8 489 VERIFY 
O00000000'EF 9 (8 490 TSTB FLAG ; SHOULD CONDITIONS BE PRINTED ? 
3 4 CE 491 BEQL + NO = 
FF 3 p 49¢ . BSBW = FORM_CONDS : YES <= FMT PRINT ALL CONDS FOR THIS T.C. 
Q0000110'EF 04 0303 49% CLRL  _—- ZEROPID CLEAR ZERO PID 
0 D9 «4495 SCREPRC_S PIDADR=CREATED PID, PRENAR= =CREATED _PRN, = 
309 496 UIC=COND3 ECR4J, IMAGE=1 - 
0309 49 MKUNTORBRONI TS” aUOTA=QUOTALIST 
0410 498 CREATE A PROCESS TO BE FORCEX'D 
0410 499 SS_CHECK NORMAL t .s. AND MAKE SURE IT CREATED OK 
043 00 SSCHDWK S DAYT IM=ONE _MIN + WAKE SELF IN 1 MIN IF CREATED PROC DOESN'T 
0451 1 8 CHECR NORMAL t CHECK FOR NORMAL RETURN 
047F 08 SHTBER S > SLEEP UNTIL CREATED PROC IS FULLY CREATED 
0486 50 SS_CHECK NORMAL + EXPECT NORMAL RETURN 
0484 504 SCANWAK : GET RID OF SCHEDULED WAKE-UP 
er e4 32 SS_CHECR NORMAL ; CHECK FOR NORMAL STATUS RETURN 
04ED 507 ; SCHEDULED WAKE-UP WILL ONLY BE EFFECTED IF CREATED PROCESS DOES 
O4ED 508 : NOT GET FULLY CREATED. IN THIS CASE, THE SUBJECT SYSTEM SERVICE 
BeeS 20% ; BELOW WILL FAIL WITH AN APPROPRIATE ERROR CONDITION. 
O4ED 511: 
O4ED 31g : THE FOLLOWING CODE LOOKS FOR THE SPECIAL CASE OF NO PID SPECIFIED 
04ED 513 : AND NO PROCESS NAME SPECIFIED IN CONDITION TABLES. IF THIS CASE 
O4ED 514 ; IS PRESENT, FORCEX NOT ISSUED HERE, BUT, INSTEAD, A SWAKE IS 
O4ED 515 : ISSUED FOR THE CREATED PROCESS, WHICH, IN TURN, ISSUES A SFORCEX 
O4ED 516 : TO FORCE ITS OWN EX XIN FOR ALL GTHER CASES, THE CREATED PROCESS 
OED 217 : IS FORCED TO EXIT BY A $FORCEX ISSUED HERE IN THis PROCESS. 
0000016B'EF42 D5 O4ED 319 TSTL COND1_ECR2] : IS PIDADR SPECIFIED 2? 
4 12 O4F& 520 BNEGU 108 : YES == NO SPECIAL CASE <= CONTINUE 
QOOOO1AD'EFSS DS O04F6 521 TSTL  COND2_ECR3] : NO == HOW ABOUT PROCESS NAME ?? 
4B 12 O4FD é BNEQU 10$ : IT EXISTS == A NORMAL CASE 
GFF SWAKE_S PIDADR=CREATED_PID + NO PIDADR OR PIDADR SPECIFIED 
50€ 4 > WAKE CREATED PROCESS TO FORCE ITSELF 
306 5 SS$_CHECK NORMAL : CHECK FOR NORMAL STATUS RETURN 
Q000011C"EF  00000118'EF 00 5 ¢ 6 MOUL  CREATED_PID,EXP_STATUS ; ... SET UP EXPECTED STATUS CODE 
O10E 31 «054 BRY 20$ : 122 AND GO WAIT FOR ITS MAIL 
34, 8 10$: 
eA 9 : SET UP TO ISSUE SUBJECT SFORCEX IN THIS PROCESS 
QOOOO11C'EF  00000114"EF DO 054A , MOVL CREATIN D,EXP_STATUS ; SET UP EXPECTED STATUS CODE 
0000010 "EF 00000168 EF 4¢ DO ©0555 MOVL COND ered. “BEST PIDADR : GET PID ADDRESS OUT OF TABLE 
59 OOOOO1AD'EF43 00 361 4 MOVL  COND2ECR : PRCNAM ADDR INTO REG FOR INDIRECT REF 'RNCE 
269 $ t eeeeee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE *eeeee 
569 8 SFORCEX_S PIDADR=@DEST_PIDADR, PRCNAM=(R9), 
369 DE=EXP STATUS 
00000000'8F 50 01 05 E 40 CMPL RO oess _NORMAL > CODE RECEIVED = CODE EXPECTED ? 
61 13 058 41 BEQLU 158 > YES == CONTINUE 
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VERIF eta Ba Sr Teey eneagayesses.man:1 oe? fi 


shi? 


00000000' EF 0000'8F oD MOVL 4#SS$ NORMAL ,EXPV NO == LOAD UP EXPECTED eS 
Bbooosen' ce 8 8 MOVL RO RE RECEIVED VALUES PHEN. EXIT 
os ERR_EXIT gt CINCORRECT STATUS ibe" RETURNED FROM FORCEX> 
0000010C 'EF 5 ; TSTL DEST. PIDADR : PID RETURNED BY FORCEX ? 
68 1 BEQL + NO <= KEEP 
0000010C"FF 00000118" F D4 CPL CREATED. PID, aDEST -PIDADR’ ; ats tS IT THE CORRECT ONE ? 
QOOOOOOO'EF  O0000118'EF 00 WOVE CREATED _PID,EXPV NO ~sLOAD UP EXPECTED AND ... 
QOOD0000'EF  OOCOOIOC'FF 00 @DEST_PIDADR,RECV RECEIVED VALUES, THEN EXIT 
as pone “EXIT LONGS<INCORRECT PID RETURNED BY FORCEX> 


: CREATED PROCESS HAS BEEN FORCEX'D (BY THIS PROCESS OR BY ITSELF) 
. $Q10W_S CHAN=MBXCHAN, FUNC=#10$_READVBLK, - 


P1=MBXBUFF+8, P2=MBXB UFF 
; WAIT FOR CREATED PROCESS TO SEND MAIL 

SS_CHECK NORMAL CHECK FOR NORMAL STATUS 

CMPL nBxBUEF +12, EXP_STATUS CREATED PROC RETURN EXPECTED EXIT STATUS ? 

BEQLU VERIFY YES ~= ALL ; OK 

ROVL EXP STATUS. exev NO == LOAD UP EXPECTED A 

OVL MBXBuF F ECV RECEI VED VALUES, THEN EXIT 

sentedns ERR EXIT LONG, TPT MEORRECT EXIT STATUS CODE RETURNED IN MAILBOX> 

RSB ; RETURN TO CALLER 


0000011C "EF eneeededt °" 


D1 
13 
QOOOOOOO"EF  OOOOOTIC'EF DO 
QOOOO000"EF  O0000098'EF 00 
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v04-000 VFY_CLEAN 73Eb=1 382 4:31:22 UETPSY. SREISAYSSSGo.MAR; 1 


-SBTTL VFY_ CLEANUP 
FUNCT ONAL DESCRIPTION: 
VFY te pe execur 


Page 15 
° (1)) 


ES SYSTEM SERVI 
EFFECT OF THOSE E ISSUE THE VERIFY SUBROUTINE. VFY_CLEANUP MUST 
ASSUME THAT VERI y RAY Aor HAVE EXECUTED IN ITS ENTIRETY (iF AN 
ERROR IS POUND) ALSO, VFY_CLEANUP MAY ISSUE SS. CHECK 70R ERR_EXIT 
ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS: THIS IS REQUIRED 
IN THE EVENT THAT VFY_CLEANU CALLED DURING ERROR b CESSING, 
WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN 


| 
| 
; POSSIBLY DISCOVERING A SECOND ERROR. 
; CALLING SEQUENCE: 
BSBW VFY_CLEANUP 
: INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


R2,3,4,5,6 CONTAIN ayer CONDITION TABLE INDEX VALUES 
FOR CON D_ TABLES 1,2, 3,4,5, RESPECTIVELY. 


OODO0O0O0O00000 O00 W090 00 000909090009 INI NIN NNO 


SOOOOOCOOCOCOCOCOCOCOCSOOCOOOOOOCOSOOCOSOOCOCCOSOOCOOCOSDOCOOCOCOOOOCOCOOOCOOOOO 
Se a Sin Sit Dn itn Dit Din Din Sin inn iin Dit Si an Din i Di Din itn Dit Di Ii itn Din Din itn itn itn ns Sin itn Din Sin itn itn itn tn itn Dit itn itn Sit Site’ itn’ Dite Jit J in ie Site ite tte’ Je Jie tee | 
DVD DEDEDE DE DDS DD DODD DDD DDS DP AAA AAA AA AA AA AA AA AAA AAAAA AAA 
FAN OOD NA UE WN OOD NAME WWN SO OD NAUE WWM 9 OONAUE WN OOO NOAUS WO” 
Sete Se Se Se Be Se Ge Se Se Se Ge Ge Se Be Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gs Ge Ge Ge Se Sse Se Ge Ge Ge Ge Ge Ge Ge Se Ge 


- END 


P) 
P) 
P) 
5 
P) 
> 
5 
5 

: P) FOR X 2344,5 : 
P) CON NOX’E'= ADDRESS OF TABLE OF DATA VALUES FOR CONDX 

é 5 RACE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE 

2 5 ARGURENT THE ARGUMENT NAME MAY ae USED AS A SYNONYM 

§ : FOR CONDX Ee. 

$ ? OUTPUT PARAMETERS: 

é $8 NONE 

5 60 IMPLICIT OUTPUTS: 

2 60 
$8 NONE 
° COMPLETION CODES: 
2 EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. | 
e| SIDE EFFECTS: | 
61 SS CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
a (VIA RSB) IF ERROR ENCOUNTERED. | 
617 3-- 
61 
; 
621 VFY_CLEANUP: : 
6 SDELPRC 5 PRCNAM=CREATED_PRN ; DELETE CREATED PROCESS (IF STILi HERE) | 

05 6 RSB ; RETURN TO CALLER 

' | 


SATSSS42 
Symbol table 


$$$$ 
SSSCHARS 
SSSCHARSS 
$$$ 


OND_A 
SSSSTRINGS 

SSSSTRINGS2 
$$T1 


C C 
COND5~ CLEANUP 
COND5—H 


COND5"T 
OND5 


E 
A 
9 
1 
5 
1 


SSS 


rerereee 


09900000 


oO 


2 QOSOCWCOCOCOCOO OOOO OOCOOOOOOOOOOOOCOOOOCOOO 
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felelelelelele)loleleloleleleleleleleleleolelelelololela!) 
Pele lel el ele ol el el el el el el elelolol ol elelelolololeolalalo) 
SOOO OCOOCOCOOCOOCOOOCOCOOCOOOOOOCOOOoOOOOCOOOoOOoOO 
= = FINI ONIN 2 | | NV ONN SS 
2 9 MUN FOOD SVC OVCUWoyorwor 
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SoS ® SOOSoSoOS 
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Sooo 

Sooo 
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geeerene 
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oS 


2 > PPO LOOOOT £PAUIP OOOO FT NOVSONOIVIOODOo 
= DwDwDwD » DDD DDDwDwDD 
OOOOSCOCOOSO COOOCOO DOOCOCOS SOOCOCoOCoO BDOOCCOCOSoO CGO0°O 
FARIA AWA SE PWIA FWA PENA PEA OEE ESE 


A 
10$_READVBLK 
LOGSC_SYSTEM 
LOGNAM_P1D 
LON 

MBXBUF F 


MBX CHAN 
MBXCHANINFO 
MBXUNIT 


MSGT_INP_CTL 
MSG3_ERR_CTL 
MSG_A 

MSG_B 
MSG-CTXT 
NOTARG 

NULL 

ONE _MIN 
OUTPUT _MSG 
Pcest OIC 
PHD$Q_PRIVMSK 
PRIVMASK 
PRIV_ARGS 
PROCESS_ERR 
QUAD 


RECV 
REST_REGS 


— | 
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eeeeeree x 4 
OOOOO09E R 3 
eeeeenee x 4 
0000011C R 3 
eeeeeeer x 4 
reeeeene x 4 
4 
4 
2 
geeeenee x 4 
Q000008C R 02 
See 
$4944.45 8 
44444 08 R 
OO00000C R 
00000088 R 


eereeeee xX 
eeeeeeee 
00000019 R 
00000039 RG 


eeeeeeee x 
eeeeeene x 
x 


jolelololololojejoloil~) 
PENS FW 


RRARRRARE 


00000000 G 
00000014 G 
teeeeene x 04 
00000051 R 02 


geerenee x 04 


000000B8C 


0000 Of RG | 
B00008¢7 
00000000 

| 


Reeeeeer x 04 
00000000 

00000000 R 03 
00000002 

reeeeeee x 04 
00000008 G&G 
eeeeeenre x 04 
eeeeeeee x 04 
eereeeee x 04 
eeeeeeee x 4 
geereeee x 4 
kerereee x 04 


eereenee 6X 04 
eeeenere GX 04 
eeeeeeee § GX 4 
eeeeeeee GX 4 
eeeenere GX 4 
eeeeenee GX 4 
aeeneeee GX 4 
eeeeeeee GX 4 
teeeeeee 4 
eeeeeree 6X 4 
eereenee 6X 4 


NALS, PC eR 
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Symbol table $7 SET obec 90:37:53 LUETPSY. SREISATSSS4 MAR; 1 ° (1) 
SYSSHIBER eereeere GX 4 
SYS$Q10W teeeeere GX 4 
SYSSSCHDOWK eeeeeree GX 4 
SYSSSETPRN teeenere GX 06 | 
SYSSSETPRV eeeeeree GX 4 
SYSSWAKE tenesere GX 04 
TESTNUM teeerene x 4 
TEST_MOD_NAME 0 RG 
TEST “ROD -NAME _D B0000009 R° OS 
TEST_MOD_SUCC eereeere =X 4 
TMD ADDR eeerenee a 4 
TM_CLEANUP 900036 RG 4 
TM_ SETUP RG 7 
VERIFY 444 RG 4 
RIFY 00 R 04 
VFY_ CLEANUP 00007 § RG 04 
= 000000 G 
WRITE _MSG2 eeeeeeee§ =X | 04 
ZEROPTD 00000110 R 03 
Faw scen nn emonmn aww s + 
! Psect synopsis ! 
$e eee eee eee ee eee > 
PSECT name Allocation PSECT No. Attributes 
‘ S3% 00000000 ( 0.) OO ¢ QO.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000000 <( 0.) 01 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA QOO000A6 ( 166.) 8 ( ‘i C€ USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
RWDATA 00000258 ( 693.) 035 ¢ 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
SATSSS42 00000736 ( 1846.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
poe meter eo mewn tem eee meme + 
! Performance indicators ! 
bon eee oe ee ere me een een ene = + 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00: 00.32 
Command processing 113 3:8 : 9-81 0:00: 6-48 
Pass 316 0:00:09. § 0:00:20.20 
Symbol table sort 0 Ba: :00.7 0:00:00.81 
Pass 2 136 0: 34 0:00:03. 
Symbol table output 1 :00:00.1 3: 799. 
Psect synopsis output :00:00.0 :00:00.0 
Cross-reference output +98: -00 8:38: 2-08 
Assembler run totals 614 :00:13.66 0:00:26.9 
Ive working set Limit was 1350 pages. 
51508 bytes (101 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table space allocated to hold 510 non-local and 48 local symbols. 
624 source lines were read in Pass 1, producing 26 object records in Pass 2. 
1 pages of virtual memory were used to define 41 macros. 
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! Macro Library statistics ! 
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Macro Library name Macros defined 
S0UA pSuat 18) ETP.MLB;1 
42} 18 -ei 
Cyst) STARLET.MLB;2 
+3558 te Libraries) 8 
934 GETS were required to define 38 macros. 


There were no errors, warnings or information messages. 
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